﻿<!--#include file="mymin.asp"-->
<%
dim rs,sql,id,TP,url
id=request.Querystring("id")
classs=request.Querystring("class")
TP=request.Querystring("TP")
if TP="2" then
	url="links.asp"
else
	url="mymin_class.asp"
end if

Set Rs=server.createobject("adodb.recordset")
Sql = "select * from 74hu_link Where id="&id
Rs.open Sql,myconn,2,3
if not (rs.bof and rs.eof) then
	rs("del")="1"
	rs.update()
	w "<card title='删除友链成功' ontimer='"&url&"?sid="&sid&"&amp;id="&classs&"'><timer value='5'/><p>删除友链成功!正在返回..."
Else
	w "<card title='出错'><p>友链已删除或不存在"
end if

call Last%>